
Namespace _2bMatesSite.Controls
	Imports System
	Imports System.Data
	Imports System.Drawing
	Imports System.Web
	Imports System.Web.UI.WebControls
	Imports System.Web.UI.HtmlControls
	Imports _2bMatesSite.BO

	''' <summary>
	'''		Summary description for UserBlogTabs.
	''' </summary>
	Public Partial Class UserBlogTabs
		Inherits System.Web.UI.UserControl


		Private pageName As String = ""
		Private activeTab As Integer = -1
		Public Property PageName() As String
			Get
				Return pageName
			End Get
			Set
				pageName = value
			End Set
		End Property

		Public Property ActiveTab() As Integer
			Get
				Return activeTab
			End Get
			Set
				activeTab = value
			End Set
		End Property

		Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
			' Put user code to initialize the page here

			tdBlogLink.Visible = False
			tdBlogLinkOn.Visible = False
			tdBlogLabelOn.Visible = False
			tdPostBlogLink.Visible = False
			tdPostBlogLinkOn.Visible = False
			tdPostBlogLabelOn.Visible = False
			trPostBlog.Visible = False
			trSpacer.Visible = False

			Select Case pageName
				Case Constants.BLOG
					tdBlogLabelOn.Visible = True
					tdPostBlogLink.Visible = True
					trPostBlog.Visible = True
					trSpacer.Visible = True
					Exit Select
				Case Constants.SEND_BLOG
					tdBlogLink.Visible = True
					tdPostBlogLabelOn.Visible = True
					Exit Select
				Case Constants.POST_BLOG_COMMENT
					tdBlogLinkOn.Visible = True
					tdPostBlogLink.Visible = True
					Exit Select
				Case Constants.VIEW_BLOG_COMMENTS
					tdBlogLinkOn.Visible = True
					tdPostBlogLink.Visible = True
					Exit Select
			End Select
		End Sub

		#region Web Form Designer generated code
		Protected Overloads Overrides Sub OnInit(ByVal e As EventArgs)
			'
			' CODEGEN: This call is required by the ASP.NET Web Form Designer.
			'
			InitializeComponent()
			MyBase.OnInit(e)
		End Sub

		''' <summary>
		'''		Required method for Designer support - do not modify
		'''		the contents of this method with the code editor.
		''' </summary>
		Private Sub InitializeComponent()
		End Sub
#End Region
	End Class
End Namespace






